//= Queer-dude Quest


prt_in,257,168,5	script	Queer-dude	122,{
 	set @NPCName$, "[^FF6600Queer-dude^000000]";
	set @cost, 400000;
	mes @NPCName$;
	mes "Hey, you.. lack a LOT of cuteness.";
	mes "But i have just the right thing for you !";
	mes "Want a SUPER UBER CUTIE RIBBON?";
	mes "Think well, you will be a male char trap with that.";
	next;
	mes @NPCName$;
	mes "You want it?";
	next;
	switch(select("Ok, il get going.:Nah you're gay:Cancel")) {
 	case 1:
	mes @NPCName$;
	mes "Get me this stuff";
	mes "  ^0000FFScarlet Dyestuff^000000 [1]";
	mes "  ^0000FFSilk Ribbon^000000 [1]";
	mes "  ^0000FF400000 Zeny^000000";
	next;
	if (countitem(975) < 1) {
	mes @NPCName$;
	mes "<_<; ? are you joking. get me that stuff !";
	close;
	}
	if (countitem(10007) < 1) {
	mes @NPCName$;
	mes "<_<; ? are you joking. get me that stuff !";
	close;
	}
	if (Zeny < @cost) {
	mes @NPCName$;
	mes "<_<; ? are you joking. get me that stuff !";
	close;
	}
	mes @NPCName$;
	mes "Good! You have all the Items! Congratulations !";
	mes "You will now trap boys & girls like you trap hum..";
	mes "anyway just take it";
	delitem 975,1;
	delitem 10007,1;
	set Zeny,Zeny-@cost;
	getitem 5140,1;
	close;
	case 2:
	mes @NPCName$;
	mes "Ok ! Stay ugly";
	close;
	case 3:
	close;
	}

}